home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / pntrary.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  3KB  |  143 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 17 "pntrary.d"
  17. #include "array1.h" 
  18.  
  19. #define    CLASS    PointerArray_c
  20. #define    ivType    PointerArray_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    PointerArray_c;
  25.  
  26.  
  27. #line 25 "pntrary.d"
  28. #define TYPE void * 
  29.  
  30.  
  31. static gIndex_t _index; 
  32.  
  33.  
  34. cvmeth objrtn PointerArray_cvm_vNew(object self, va_list _rest_)
  35. { 
  36.     unsigned rank = va_arg(_rest_, unsigned);
  37.  
  38. #line 33 "pntrary.d"
  39.     static gNewArray_t cnew = NULL; 
  40.     MAKE_REST(rank); 
  41.  
  42.     if (!cnew) 
  43.         cnew = cmcPointer(Array, gNewArray); 
  44.     return cnew(self, AT_PNTR, rank, _rest_); 
  45. } 
  46.  
  47. #line 48 "pntrary.c"
  48.  
  49. static    objrtn    PointerArray_cfm_vNew(object self, ...)
  50. {
  51.     va_list    _rest_;
  52.     va_start(_rest_, self);
  53.     return PointerArray_cvm_vNew(self, _rest_);
  54. }
  55.  
  56.  
  57.  
  58. #line 41 "pntrary.d"
  59. ivmeth void * PointerArray_ivm_vPointerValue(object self, va_list _rest_)
  60. { 
  61.     MAKE_REST(self); 
  62.     return *((TYPE *) _index(self, _rest_)); 
  63. } 
  64.  
  65. #line 66 "pntrary.c"
  66.  
  67. static    void *    PointerArray_ifm_vPointerValue(object self, ...)
  68. {
  69.     va_list    _rest_;
  70.     va_start(_rest_, self);
  71.     return PointerArray_ivm_vPointerValue(self, _rest_);
  72. }
  73.  
  74.  
  75.  
  76. #line 47 "pntrary.d"
  77. ivmeth objrtn PointerArray_ivm_vChangeValue(object self, va_list _rest_)
  78. { void * val = va_arg(_rest_, void *);
  79.     MAKE_REST(val); 
  80.     *((TYPE *) _index(self, _rest_)) = val; 
  81.     return self; 
  82. } 
  83.  
  84. #line 85 "pntrary.c"
  85.  
  86. static    objrtn    PointerArray_ifm_vChangeValue(object self, ...)
  87. {
  88.     va_list    _rest_;
  89.     va_start(_rest_, self);
  90.     return PointerArray_ivm_vChangeValue(self, _rest_);
  91. }
  92.  
  93.  
  94. #line 54 "pntrary.d"
  95. static void init_class(void) 
  96. { 
  97.     _index = imcPointer(Array, gIndex); 
  98. } 
  99.  
  100. #line 101 "pntrary.c"
  101.  
  102. objrtn    PointerArray_initialize(void)
  103. {
  104.     static  CRITICALSECTION  cs;
  105.     static  int volatile once = 0;
  106.  
  107.     ENTERCRITICALSECTION(_CI_CS_);
  108.     if (!once) {
  109.         INITIALIZECRITICALSECTION(cs);
  110.         once = 1;
  111.     }
  112.     LEAVECRITICALSECTION(_CI_CS_);
  113.  
  114.     ENTERCRITICALSECTION(cs);
  115.  
  116.     if (PointerArray_c) {
  117.         LEAVECRITICALSECTION(cs);
  118.         return PointerArray_c;
  119.     }
  120.     INHIBIT_THREADER;
  121.     Array_initialize();
  122.     if (PointerArray_c)  {
  123.         ENABLE_THREADER;
  124.         LEAVECRITICALSECTION(cs);
  125.         return PointerArray_c;
  126.     }
  127.     PointerArray_c = gNewClass(Class, "PointerArray", 0, 0, Array, END);
  128.     cvMethodFor(PointerArray, vNew, PointerArray_cvm_vNew, PointerArray_cfm_vNew);
  129.     ivMethodFor(PointerArray, vChangeValue, PointerArray_ivm_vChangeValue, PointerArray_ifm_vChangeValue);
  130.     ivMethodFor(PointerArray, vPointerValue, PointerArray_ivm_vPointerValue, PointerArray_ifm_vPointerValue);
  131.  
  132.     init_class();
  133.  
  134.     ENABLE_THREADER;
  135.  
  136.     LEAVECRITICALSECTION(cs);
  137.  
  138.     return PointerArray_c;
  139. }
  140.  
  141.  
  142.  
  143.